www.gusucode.com > 良精ASP微博管理系统 V1.0 > 良精ASP微博管理系统 V1.0\code\js\doajax.asp

    <!--#include file="../Include/liangconn.asp"-->
<%
Dim RetCode,RetDes

function CreateXML()
  Dim OutStr
  OutStr="<?xml version=""1.0"" encoding=""gb2312""?>"&vbcrlf
  OutStr=OutStr&"<ReturnStr>"&vbcrlf
  OutStr=OutStr&"<RetCode>"&RetCode&"</RetCode>"&vbcrlf
  OutStr=OutStr&"<RetDes>"&RetDes&"</RetDes>"&vbcrlf
  OutStr=OutStr&"</ReturnStr>"
  Response.ContentType="text/xml"
  Response.write OutStr
end function


if request("action")="" then
	RetCode="0001"
	RetDes="异常错误"
	CreateXML()
response.end
end if
select case Lcase(trim(request("action")))
	case "hit"
	dim Src_ID
	Src_ID=request("Src_ID")
		if Session("_WUserID") = "" then	'判断是否登入
			RetCode="0002"
			RetDes="您未登陆,DIG的信息无法长久保存"
		else
			Is_Hit_Temp =Conn.Execute("Select Count(Hit_ID) From Liangjing_SrcHit Where Hit_SrcID="&Src_ID&" and Hit_UserID="&Session("_WUserID"))(0)
			if Is_Hit_Temp <= 0 then	'判断是否顶完(避免开多个窗口的问题)	
				Sql_Hit = "Insert into Liangjing_SrcHit(Hit_SrcID,Hit_UserID,Hit_Time,Hit_IP)"
				Sql_Hit = Sql_Hit & "Values(" & src_id & ",'" & Session("_WUserID") & "','" & Now() & "','" & Request.ServerVariables("REMOTE_ADDR") & "')"
				Conn.Execute(Sql_Hit)
				Conn.Execute("Update Liangjing_Source Set Src_HitNum=Src_HitNum+1,Src_HitUpdate='"&Now()&"' Where Src_ID="&src_id)
				RetCode="0000"
				RetDes="DIG成功"
			else
				RetCode="0003"
				RetDes="已顶"
			end if
		end if
  case else
  	RetCode="0001"
  	RetDes="异常错误"
end select
conn.close
set conn=nothing
CreateXML()
%>